home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / places.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  50.9 KB  |  1,294 lines
  1. (SYSTEM::VERSION '(19071996.))
  2. #Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  3.    "SYSTEM"
  4.   )
  5. #Y(#:TOP-LEVEL-FORM-2
  6.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  7.    SETF-SYMBOL REMOVE-OLD-DEFINITIONS
  8.    #Y(SETF-SYMBOL
  9.       #36Y(00 00 00 00 01 00 00 00 00 02 D8 AC 71 8C 91 00 0E C4 F6 DA AE 71 8E
  10.            DB 72 05 13 30 CF 19 02 14 30 D1 1A 6E
  11.           )
  12.       "(SETF " "#" ":" ")"
  13.   )  )
  14. #Y(#:TOP-LEVEL-FORM-3
  15.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  16.    GET-SETF-SYMBOL REMOVE-OLD-DEFINITIONS
  17.    #Y(GET-SETF-SYMBOL
  18.       #48Y(00 00 00 00 01 00 00 00 00 02 AB D8 37 01 31 86 1D 1C AB D9 37 01 8E
  19.            86 0B DA DB DC 6D 03 05 DE AD 2C 03 07 AB 6E 08 AC D8 AC 31 8A 19 03
  20.            19 02
  21.           )
  22.       SETF-FUNCTION SETF-EXPANDER
  23.       "The function (~S ~S) is hidden by a SETF expander."
  24.       "Die Funktion (~S ~S) ist durch einen SETF-Expander verborgen."
  25.       "La fonction (~S ~S) est cachΘe par une mΘthode SETF." LANGUAGE SETF WARN
  26.       SETF-SYMBOL
  27.   )  )
  28. #Y(#:TOP-LEVEL-FORM-4
  29.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  30.    GET-FUNNAME-SYMBOL REMOVE-OLD-DEFINITIONS
  31.    #Y(GET-FUNNAME-SYMBOL
  32.       #23Y(00 00 00 00 01 00 00 00 00 02 9C 1F 07 9C 5B 77 2E 00 19 02 9C 19 02
  33.           )
  34.       GET-SETF-SYMBOL
  35.   )  )
  36. #Y(#:TOP-LEVEL-FORM-5
  37.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  38.    GET-SETF-METHOD-MULTIPLE-VALUE REMOVE-OLD-DEFINITIONS
  39.    #Y(GET-SETF-METHOD-MULTIPLE-VALUE
  40.       #332Y(00 00 00 00 01 00 01 00 00 08 3A 01 06 01 02 81 02 00 01 9D 1F 1B
  41.             93 02 8E 09 16 93 02 AC C3 5E 14 8A 01 0D 93 02 DA 37 01 71 86 91
  42.             00 80 5E 16 01 AC AD AD 7F 5D 03 22 5A AC 8D 09 80 C8 9D 1F 06 93
  43.             02 8D 09 80 D2 DD E4 E5 E6 6D 03 09 AE 32 01 1F 37 01 71 92 01 02
  44.             94 06 1A 0C 37 01 71 92 83 02 93 00 83 01 82 00 9B 20 71 AB 80 4C
  45.             01 AC AC AF 7A 01 B1 B0 B2 7A 01 32 02 23 79 93 0B A2 79 3F 05 19
  46.             08 94 01 AF AF 35 02 19 05 14 8D 09 41 93 00 AA 23 03 6E 01 03 DC
  47.             94 08 62 1A 80 41 7C 06 C7 F8 92 06 23 1A 25 DD DE DF E0 6D 03 09
  48.             AC 93 0D 32 02 1F AA 8E 8F 6F AA 83 03 1A 1E 86 01 00 AC B1 8D 04
  49.             59 91 06 04 AC 8D 98 68 37 01 71 92 AA 83 06 AB 83 05 AA 83 04 16
  50.             01 84 02 82 01 AB 8C 97 5A 16 03 93 07 AB 31 4C 5C F6 37 01 71 92
  51.             AD 71 4C AD 71 4C AC 7A 01 94 08 AF AF 75 02 AF 3F 05 19 09 37 01
  52.             71 92 01 02 AC 7A 01 E2 B1 AF 7A 03 B1 3F 05 19 04 37 01 71 92 01
  53.             02 94 05 1A 0C 37 01 71 92 83 02 93 00 83 01 82 00 9B 20 71 AB 80
  54.             4C 01 AC AC AF 7A 01 E3 93 0A 7A 02 B1 A2 7B 02 93 0A A2 79 3F 05
  55.             19 07
  56.            )
  57.       1. GLOBAL-IN-FENV-P SETF-EXPANDER -5. 0. PROGRAM-ERROR
  58.       "The argument ~S to ~S should be a keyword."
  59.       "Das Argument ~S zu ~S sollte ein Keyword sein."
  60.       "L'argument ~S de ~S doit Ωtre un mot-clΘ." LANGUAGE SETQ SETF
  61.       "Argument ~S is not a SETF place."
  62.       "Das Argument mu▀ eine 'SETF-place' sein, ist aber keine: ~S"
  63.       "L'argument ~S doit reprΘsenter une place modifiable."
  64.   )  )
  65. #Y(#:TOP-LEVEL-FORM-6
  66.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  67.    GET-SETF-METHOD REMOVE-OLD-DEFINITIONS
  68.    #Y(GET-SETF-METHOD
  69.       #52Y(00 00 00 00 01 00 01 00 00 08 3A 01 06 01 02 81 02 00 01 AC AC 2F 00
  70.            41 05 9D 1F 0D 9D 5B 1B 09 AE AE AE AE AE 3F 05 19 08 D9 DA DB DC 6D
  71.            03 05 B3 32 01 1F
  72.           )
  73.       GET-SETF-METHOD-MULTIPLE-VALUE PROGRAM-ERROR
  74.       "SETF place ~S produces more than one store variable."
  75.       "Diese 'SETF-place' produziert mehrere 'Store-Variable': ~S"
  76.       "La place modifiable ~S produit plusieurs variables de rΘsultat."
  77.       LANGUAGE
  78.   )  )
  79. #Y(#:TOP-LEVEL-FORM-7
  80.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  81.    SIMPLE-ASSIGNMENT-P REMOVE-OLD-DEFINITIONS
  82.    #Y(SIMPLE-ASSIGNMENT-P
  83.       #54Y(00 00 00 00 02 00 00 00 00 03 AB 71 4A C3 59 1E 23 AC 31 07 1E 1E 93
  84.            02 C4 59 1E 18 AC 71 4A C5 59 1E 11 9D 5B 77 31 09 1E 0A 9D 5B 5B 77
  85.            93 02 2F 03 19 03 19 03
  86.           )
  87.       1. SETQ 3. SIMPLE-USE-P
  88.   )  )
  89. #Y(#:TOP-LEVEL-FORM-8
  90.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  91.    SIMPLE-USE-P REMOVE-OLD-DEFINITIONS
  92.    #Y(SIMPLE-USE-P
  93.       #44Y(00 00 00 00 02 00 00 00 00 03 AC 9D 59 1D 1B AC 31 07 1E 16 93 02 C3
  94.            59 1E 10 AC 71 4A C4 59 1E 09 9D 5B 5B 77 AC 28 02 05 60 19 03
  95.           )
  96.       THE 3.
  97.   )  )
  98. #Y(#:TOP-LEVEL-FORM-9
  99.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  100.    DOCUMENTATION REMOVE-OLD-DEFINITIONS
  101.    #Y(DOCUMENTATION
  102.       #41Y(00 00 00 00 02 00 00 00 00 03 AC 88 00 0F AC 6E 07 E0 37 01 71 86 AC
  103.            37 01 31 87 19 03 D9 DA DB DC 6D 03 05 DE AF 32 02 1F
  104.           )
  105.       FUNCTION-NAME-P ERROR "~S: first argument ~S is illegal, not a symbol"
  106.       "~S: Das ist als erstes Argument unzulΣssig, da kein Symbol: ~S"
  107.       "~S : Le premier argument ~S est invalide car ce n'est pas un symbole."
  108.       LANGUAGE DOCUMENTATION GET-FUNNAME-SYMBOL DOCUMENTATION-STRINGS
  109.   )  )
  110. #Y(#:TOP-LEVEL-FORM-10
  111.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  112.    %SET-DOCUMENTATION REMOVE-OLD-DEFINITIONS
  113.    #Y(%SET-DOCUMENTATION
  114.       #138Y(00 00 00 00 03 00 00 00 00 04 AD 88 00 1D AD 2E 07 F9 92 01 22 AD
  115.             E0 37 01 71 86 AD AD 6D 03 0C 92 00 05 AE E0 AC 31 8A 9D 19 05 D9
  116.             DA DB DC 6D 03 05 DE B0 32 02 1F AD E0 37 01 71 86 AD 37 01 8E 87
  117.             80 43 AD E0 37 01 71 86 AA 62 1A 34 D9 E1 E2 E3 6D 03 05 32 00 1F
  118.             78 9D 5B 78 30 AE 16 03 1A 25 91 00 73 9D 5B 5B F8 B0 E0 AE 31 8A
  119.             16 03 1A 15 9C 5B 1F 58 93 01 A1 21 67 9C 5B 78 9D F7 69 01 9C 20
  120.             6D 16 03 00 19 04
  121.            )
  122.       FUNCTION-NAME-P ERROR "~S: first argument ~S is illegal, not a symbol"
  123.       "~S: Das ist als erstes Argument unzulΣssig, da kein Symbol: ~S"
  124.       "~S : Le premier argument ~S est invalide car ce n'est pas un symbole."
  125.       LANGUAGE DOCUMENTATION GET-FUNNAME-SYMBOL DOCUMENTATION-STRINGS
  126.       "REMF: property list with an odd length"
  127.       "REMF: Property-Liste ungerader LΣnge aufgetreten."
  128.       "REMF : Occurence d'une liste de propriΘtΘs de longueur impaire." %PUTF
  129.   )  )
  130. #Y(#:TOP-LEVEL-FORM-11
  131.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) PUSH
  132.    REMOVE-OLD-DEFINITIONS MACRO
  133.    #Y(PUSH
  134.       #108Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2E 38 9D 5B
  135.             77 9E 5B 5B 77 37 01 71 92 AB AF 2F 02 41 05 DB AF AF 72 01 17 91
  136.             00 23 A3 FC DC B1 AD 7A 03 AD AF 89 05 1F AB 93 05 AC 7A 02 7A 01
  137.             81 02 24 01 91 01 1C 9E 19 0D AC 2E 01 19 03 B0 B3 7A 02 83 00 1A
  138.             57 AA 93 05 AF 37 03 7F B0 03 92 01 64 DE AC AF 60 03 19 0D
  139.            )
  140.       3. MACRO-CALL-ERROR GET-SETF-METHOD #.#'LIST CONS SIMPLE-ASSIGNMENT-P
  141.       LET*
  142.   )  )
  143. #Y(#:TOP-LEVEL-FORM-12
  144.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  145.    DEFINE-SETF-METHOD REMOVE-OLD-DEFINITIONS MACRO
  146.    #Y(DEFINE-SETF-METHOD
  147.       #264Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 80 D6 9D
  148.             5B 77 9E 5B 5B 77 9F 5B 5B 78 AC 8E 09 80 CB AA 63 B0 30 63 41 03
  149.             91 02 02 CA F8 E0 B0 71 8E 72 02 13 70 CF AF AB 2F 09 41 02 CD 10
  150.             0B CD 10 0C 00 10 0D 00 10 0E 00 10 0F 00 10 10 BD E9 C0 EA 2C 04
  151.             13 91 13 03 EC 83 16 EA 6E 15 EE 6A 0E 71 4C 91 19 80 90 00 14 6A
  152.             0F F0 65 20 04 1E 7B 02 7A 01 32 03 23 7B 02 92 01 12 F1 AC F2 F3
  153.             F4 F5 65 22 7A 02 03 1E 7B 04 AD 60 04 F6 64 1F 64 20 64 21 62 64
  154.             22 65 1B EA 91 1B 02 03 23 14 7A 02 91 1B 80 5A 03 24 14 B2 7A 01
  155.             32 02 23 7B 03 64 25 F5 65 23 7A 02 64 26 64 27 64 28 64 29 65 21
  156.             7A 02 7A 03 7A 04 64 2A F5 65 24 7A 02 64 2B F5 65 21 7A 02 7A 04
  157.             F5 65 24 7A 02 7A 06 60 03 16 02 12 06 19 0C AC 2E 01 19 03 DA DB
  158.             DC DD 6D 03 06 AE 32 01 1F EF 04 1A 79 60 01 1A FF 68 00 1A FF A4
  159.            )
  160.       3. MACRO-CALL-ERROR PROGRAM-ERROR
  161.       "The name of the access function must be a symbol, not ~S"
  162.       "Der Name der Access-Function mu▀ ein Symbol sein und nicht ~S."
  163.       "Le nom de la fonction d'accΦs doit Ωtre un symbole et non ~S." LANGUAGE
  164.       (NIL) "SETF-" REMOVE-ENV-ARG 0. %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST
  165.       %KEYWORD-TESTS %DEFAULT-FORM (CDR %LAMBDA-LIST) %LAMBDA-LIST ANALYZE1
  166.       (IGNORE %LAMBDA-LIST) MAKE-LENGTH-TEST LET* DECLARE BLOCK IF
  167.       ERROR-OF-TYPE 'PROGRAM-ERROR
  168.       (DEUTSCH
  169.         "Der SETF-Expander fⁿr ~S kann nicht mit ~S Argumenten aufgerufen werden."
  170.         ENGLISH "The SETF expander for ~S may not be called with ~S arguments."
  171.         FRANCAIS
  172.         "L'½expandeur╗ SETF pour ~S ne peut pas Ωtre appelΘ avec ~S arguments."
  173.       )
  174.       QUOTE ((1- (LENGTH %LAMBDA-LIST))) EVAL-WHEN (LOAD COMPILE EVAL) LET
  175.       DEFUN ENV ((DECLARE (IGNORE ENV))) %PUT 'SETF-EXPANDER CONS -5. FUNCTION
  176.       %SET-DOCUMENTATION 'SETF
  177.   )  )
  178. #Y(#:TOP-LEVEL-FORM-13
  179.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  180.    DEFSETF REMOVE-OLD-DEFINITIONS MACRO
  181.    #Y(DEFSETF
  182.       #385Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 36 9D 5B
  183.             77 9E 5B 78 9B 1F 0B 93 00 8D 0E 06 93 00 8D 09 80 43 9B 1F 10 93
  184.             00 8E 0E 0B 9B 5B 1F 07 9B 5B 77 8D 0E 80 7A E2 64 35 64 36 64 37
  185.             6D 03 0E 9E 14 32 01 1F AC 2E 01 19 03 E2 E3 E4 E5 6D 03 0E A5 5B
  186.             1A 6C A3 5B 5B 1B 70 E2 E7 E8 E9 6D 03 0E A5 5B 5A 1A 5B DA DB DC
  187.             62 DD DE B1 7A 02 DF DE 93 08 7A 02 7A 04 E0 DE B2 7A 02 E1 A3 5B
  188.             5B 1B 53 A3 5B 5A 1C 06 A3 5B 77 8E 0A 48 A3 5B 77 7A 04 DE B2 7A
  189.             02 7A 05 60 03 19 05 E2 EC ED EE 6D 03 0E 32 00 1F 0E 1E 1A 80 5E
  190.             03 2B 1A 80 73 9B 5B 77 71 4A EA 8F 01 2D 18 9B 5B 77 71 4A EB 8F
  191.             01 2D 58 EF F0 F1 6D 03 0E F2 F3 F4 6D 03 0E 2F 1D 9B 5B 78 63 AF
  192.             30 63 41 03 62 93 04 A0 5B 5A 77 D6 10 1E D6 10 1F 00 10 20 00 10
  193.             21 00 10 22 00 10 23 BD 64 24 65 1B 64 25 2C 04 26 64 27 BE 37 03
  194.             8B B8 FF 9F 03 28 09 14 92 16 09 64 29 04 17 79 60 01 09 16 64 2A
  195.             64 25 BE 7A 02 92 15 FF 89 00 14 65 19 64 2C 6A 21 71 4C 65 1C 6A
  196.             22 64 2D 65 22 04 21 7B 02 7A 01 32 03 23 7B 02 7A 01 32 03 23 61
  197.             02 12 06 16 01 F6 DA 64 2E DC 62 DD DE B6 7A 02 64 2F 64 30 B3 64
  198.             31 64 32 BB 6F 33 B5 7A 03 7A 03 7A 04 E0 DE B7 7A 02 64 34 B4 7A
  199.             04 DE B7 7A 02 7A 05 60 03 19 0A
  200.            )
  201.       2. MACRO-CALL-ERROR EVAL-WHEN (LOAD COMPILE EVAL) LET %PUT QUOTE
  202.       'SETF-EXPANDER %SET-DOCUMENTATION 'SETF PROGRAM-ERROR
  203.       "Too many arguments to DEFSETF: ~S" "Zu viele Argumente fⁿr DEFSETF: ~S"
  204.       "Trop d'arguments pour DEFSETF : ~S" LANGUAGE
  205.       "The doc string to DEFSETF must be a string: ~S"
  206.       "Der Dok.-String zu DEFSETF mu▀ ein String sein: ~S"
  207.       "La documentation pour DEFSETF doit Ωtre un chaεne : ~S" 1. 0.
  208.       "Missing store variable in DEFSETF."
  209.       "Bei DEFSETF mu▀ genau eine 'Store-Variable' angegeben werden."
  210.       "Une variable de rΘsultat doit Ωtre prΘcisΘe dans DEFSETF."
  211.       "The excess variables will be ignored."
  212.       "Die ⁿberzΣhligen Variablen werden ignoriert."
  213.       "Les variables en excΦs seront ignorΘes."
  214.       "Only one store variable is allowed in DEFSETF."
  215.       "Bei DEFSETF ist nur eine 'Store-Variable' erlaubt."
  216.       "Une seule variable de rΘsultat est permise dans DEFSETF." CERROR
  217.       %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS %DEFAULT-FORM
  218.       (CDR %ACCESS-ARGLIST) %ACCESS-ARGLIST ANALYZE1 &KEY -1. DECLARE LAMBDA
  219.       ((DECLARE (IGNORE %ACCESS-ARGLIST))) LET* BLOCK (LOAD COMPILE EVAL)
  220.       'SETF-EXPANDER CONS FUNCTION "SETF-" CONCAT-PNAMES 'SETF
  221.       "Illegal syntax in DEFSETF for ~S"
  222.       "DEFSETF-Aufruf fⁿr ~S ist falsch aufgebaut."
  223.       "Le DEFSETF ~S est mal formΘ."
  224.   )  )
  225. #Y(#:TOP-LEVEL-FORM-14
  226.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) POP
  227.    REMOVE-OLD-DEFINITIONS MACRO
  228.    #Y(POP
  229.       #130Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2E 80 50 9D
  230.             5B 77 AA AD 2F 02 41 05 AE AE 62 92 02 0F 93 02 93 02 7A 02 83 00
  231.             82 02 82 01 91 02 71 AD 8E 09 05 AE B0 89 03 2E 93 05 AE 7A 02 83
  232.             00 A0 5A 14 DC AB 7A 02 DD DE AD 7A 02 B2 B4 89 03 19 DF 93 0A AE
  233.             7A 03 B3 60 02 7B 02 91 03 17 15 19 0E AC 2E 01 19 03 9E 1A 58 AC
  234.             93 0A B4 37 03 70 B0 60 01 1A 64 E0 AE 71 4C AC 60 03 19 0F
  235.            )
  236.       2. MACRO-CALL-ERROR GET-SETF-METHOD SIMPLE-ASSIGNMENT-P CDR PROG1 CAR
  237.       SETQ LET*
  238.   )  )
  239. #Y(#:TOP-LEVEL-FORM-15
  240.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  241.    PSETF REMOVE-OLD-DEFINITIONS MACRO
  242.    #Y(PSETF
  243.       #98Y(00 00 00 00 01 00 01 00 00 08 3C 01 94 02 AA 01 02 1A 3F D8 D9 DA DB
  244.            6D 03 04 DD B3 32 02 1F 9D 5B 1F 70 93 02 B0 2F 06 41 05 AE AE 92 01
  245.            0F 93 01 93 01 7A 02 83 08 82 01 82 00 91 01 71 16 02 93 02 A3 5B 77
  246.            7A 02 83 06 AB 83 05 16 05 9D 5B 5B F8 9D 20 4A DF AC 71 4C AC E0 32
  247.            02 23 61 02 19 07
  248.           )
  249.       PROGRAM-ERROR "~S called with an odd number of arguments: ~S"
  250.       "~S mit einer ungeraden Zahl von Argumenten aufgerufen: ~S"
  251.       "~S fut appelΘ avec un nombre impair d'arguments : ~S" LANGUAGE PSETF
  252.       GET-SETF-METHOD LET* (NIL)
  253.   )  )
  254. #Y(#:TOP-LEVEL-FORM-16
  255.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  256.    PUSHNEW REMOVE-OLD-DEFINITIONS MACRO
  257.    #Y(PUSHNEW
  258.       #113Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 3D 9D 5B
  259.             77 9E 5B 5B 77 9F 5B 5B 78 37 01 71 92 AC B0 2F 02 41 05 DB AF AF
  260.             72 01 17 91 00 24 A4 FC DC B1 AD A5 7B 03 AD AF 89 05 1F AB 93 05
  261.             AC 7A 02 7A 01 81 02 24 01 91 01 1C 9E 19 0E AC 2E 01 19 03 B0 B4
  262.             7A 02 83 00 1A 56 AA 93 05 AF 37 03 7F B0 03 92 01 64 DE AC AF 60
  263.             03 19 0E
  264.            )
  265.       3. MACRO-CALL-ERROR GET-SETF-METHOD #.#'LIST ADJOIN SIMPLE-ASSIGNMENT-P
  266.       LET*
  267.   )  )
  268. #Y(#:TOP-LEVEL-FORM-17
  269.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) REMF
  270.    REMOVE-OLD-DEFINITIONS MACRO
  271.    #Y(REMF
  272.       #187Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2E 80 97 9D
  273.             5B 77 9E 5B 5B 77 AB AE 2F 02 41 05 AE AE 62 37 01 71 92 37 01 71
  274.             92 37 01 71 92 92 05 0F 93 05 93 05 7A 02 83 03 82 05 82 04 91 05
  275.             71 93 08 B1 7A 02 83 03 AC B6 7A 02 83 03 DB AE 71 4C DC AE 93 0C
  276.             DD B1 7A 02 7A 03 AE 62 B1 7A 03 7A 02 DE B0 7A 02 CA 79 E0 DE E1
  277.             B3 7A 02 7A 02 CD 79 E3 E4 B4 7A 02 B5 7A 03 E5 B3 E6 E1 B6 7A 02
  278.             DD B8 7A 02 7A 03 DD 93 14 7A 02 BD BF 89 0F 1D E8 E9 93 16 AD 7A
  279.             03 BF 60 03 F6 7A 04 D5 7B 02 7A 03 7A 04 60 03 19 10 AC 2E 01 19
  280.             03 AA 93 15 BF 37 03 30 B0 1A 63
  281.            )
  282.       3. MACRO-CALL-ERROR GET-SETF-METHOD LET* DO CDDR ATOM (NIL) COND CDR
  283.       ((ERROR-OF-TYPE 'ERROR
  284.           (DEUTSCH "REMF: Property-Liste ungerader LΣnge aufgetreten." ENGLISH
  285.             "REMF: property list with an odd length" FRANCAIS
  286.             "REMF : Occurence d'une liste de propriΘtΘs de longueur impaire."
  287.       ))  )
  288.       EQ CAR IF RPLACD SIMPLE-ASSIGNMENT-P PROGN SETQ ((RETURN T))
  289.   )  )
  290. #Y(#:TOP-LEVEL-FORM-18
  291.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  292.    ROTATEF REMOVE-OLD-DEFINITIONS MACRO
  293.    #Y(ROTATEF
  294.       #110Y(00 00 00 00 01 00 01 00 00 08 3C 01 94 02 92 00 09 9B 5B 1C 08 AA
  295.             01 04 1A 3E 00 19 04 D8 93 01 C4 61 02 19 04 93 04 B2 2F 02 41 05
  296.             AE AE 92 01 0F 93 01 93 01 7A 02 83 0A 82 01 82 00 91 01 71 16 02
  297.             B0 AB 7A 02 83 08 91 05 03 86 08 05 AB 83 07 86 02 06 16 05 82 04
  298.             9F 20 4A AA AC 30 AD DB AE 71 4C AE 71 4C DC 32 02 23 61 02 19 09
  299.            )
  300.       PROGN (NIL) GET-SETF-METHOD LET* (NIL)
  301.   )  )
  302. #Y(#:TOP-LEVEL-FORM-19
  303.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  304.    DEFINE-MODIFY-MACRO REMOVE-OLD-DEFINITIONS MACRO
  305.    #Y(DEFINE-MODIFY-MACRO
  306.       #299Y(00 00 00 00 01 00 01 00 00 08 D8 AD 71 4A D9 90 02 31 80 50 9D 5B
  307.             77 9E 5B 5B 77 9F 5B 5B 5B 77 AF 70 9A 01 02 AE 62 92 01 80 7D 86
  308.             01 00 14 23 03 80 6F AA 23 04 80 43 AA 23 0D 80 57 AA 23 0E 80 52
  309.             AA 23 0F 80 4D AA 8D 09 80 4E AA 8E 0E 06 93 00 8D 09 80 47 DD EB
  310.             EC 03 15 14 6D 03 09 9D 14 32 01 1F AC 2E 02 19 03 DD DE DF E0 6D
  311.             03 09 B3 9F 5B 77 32 02 1F 16 02 1A 2F 9C 5B 77 8E 09 68 9C 5B 5A
  312.             F8 9C 5B 5B 1C 6D DD E2 E3 E4 6D 03 09 9E 1A 4C DD E8 E9 D5 1A 41
  313.             9B 1A 02 9B 5A 14 83 03 82 01 91 01 FF 83 16 02 AB 80 4C 01 EE B0
  314.             EF B1 F0 32 02 23 79 AF F1 F2 F3 F4 F5 64 1E 64 1F 64 20 64 21 64
  315.             22 64 23 64 24 BD 7A 02 64 25 BC BC 7A 01 32 02 23 7B 03 03 26 7B
  316.             02 7A 02 7A 03 64 27 64 28 64 29 64 2A 64 2B 64 28 64 2C 64 2D 64
  317.             23 64 24 C2 7A 02 64 25 C1 C1 7A 01 32 02 23 7B 03 7A 04 64 23 64
  318.             24 C0 7A 02 64 25 BF BF 7A 01 32 02 23 7B 03 7A 04 7A 03 03 2E 7B
  319.             02 03 2F 7B 03 7A 03 7A 04 60 05 19 09
  320.            )
  321.       4. 5. MACRO-CALL-ERROR &OPTIONAL &REST PROGRAM-ERROR
  322.       "In the definition of ~S: &REST variable ~S should be a symbol."
  323.       "In der Definition von ~S ist die &REST-Variable kein Symbol: ~S"
  324.       "Dans la dΘfinition de ~S la variable pour &REST n'est pas un symbole : ~S."
  325.       LANGUAGE "Only one variable is allowed after &REST, not ~S"
  326.       "Nach &REST ist nur eine Variable erlaubt; es kam: ~S"
  327.       "Une seule variable est permise pour &REST et non ~S." &KEY
  328.       &ALLOW-OTHER-KEYS &AUX "Illegal in a DEFINE-MODIFY-MACRO lambda list: ~S"
  329.       "In einer DEFINE-MODIFY-MACRO-Lambdaliste ist ~S unzulΣssig."
  330.       "~S n'est pas permis dans une liste lambda pour DEFINE-MODIFY-MACRO."
  331.       "lambda list may only contain symbols and lists, not ~S"
  332.       "Lambdalisten dⁿrfen nur Symbole und Listen enthalten, nicht aber ~S"
  333.       "Les listes lambda ne peuvent contenir que des symboles et des listes et non ~S."
  334.       DEFMACRO %REFERENCE (&ENVIRONMENT ENV) MULTIPLE-VALUE-BIND
  335.       (DUMMIES VALS NEWVAL SETTER GETTER) (GET-SETF-METHOD %REFERENCE ENV) DO
  336.       ((D DUMMIES (CDR D)) (V VALS (CDR V))
  337.         (LET-LIST NIL (CONS (LIST (CAR D) (CAR V)) LET-LIST))
  338.       )
  339.       (NULL D) WHEN (SYMBOLP GETTER) RETURN SUBST LIST* QUOTE GETTER
  340.       ((CAR NEWVAL) SETTER) PUSH LIST (CAR NEWVAL) IF
  341.       (AND (LISTP %REFERENCE) (EQ (CAR %REFERENCE) 'THE)) 'THE
  342.       (CADR %REFERENCE) (LET-LIST) ((LIST 'LET* (NREVERSE LET-LIST) SETTER))
  343.   )  )
  344. #Y(#:TOP-LEVEL-FORM-20
  345.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) DECF
  346.    REMOVE-OLD-DEFINITIONS MACRO
  347.    #Y(DECF
  348.       #140Y(00 00 00 00 01 00 01 00 00 08 3C 01 D8 AD 71 4A D9 90 02 31 80 4D
  349.             9D 5B 77 9E 5B 5B 1B 80 49 C6 14 AB AE 2F 04 41 05 AE AE 62 92 02
  350.             13 94 02 94 02 93 04 93 04 7A 02 83 02 69 02 69 02 91 02 6D AD 8D
  351.             09 2B 93 05 B4 8E 0E 05 93 0A 23 06 2F DD AF B5 00 61 03 14 7A 02
  352.             83 00 DF AB 71 4C B0 60 03 19 0D AC 2E 02 19 03 9E 5B 5B 5A 1A FF
  353.             B1 DD AE B4 00 7B 03 93 06 B0 37 03 30 B0 19 0D DE A6 5B 77 DD B1
  354.             B7 00 7B 03 60 03 1A 49
  355.            )
  356.       2. 3. MACRO-CALL-ERROR 1. GET-SETF-METHOD - THE LET*
  357.   )  )
  358. #Y(#:TOP-LEVEL-FORM-21
  359.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) INCF
  360.    REMOVE-OLD-DEFINITIONS MACRO
  361.    #Y(INCF
  362.       #140Y(00 00 00 00 01 00 01 00 00 08 3C 01 D8 AD 71 4A D9 90 02 31 80 4D
  363.             9D 5B 77 9E 5B 5B 1B 80 49 C6 14 AB AE 2F 04 41 05 AE AE 62 92 02
  364.             13 94 02 94 02 93 04 93 04 7A 02 83 02 69 02 69 02 91 02 6D AD 8D
  365.             09 2B 93 05 B4 8E 0E 05 93 0A 23 06 2F DD AF B5 00 61 03 14 7A 02
  366.             83 00 DF AB 71 4C B0 60 03 19 0D AC 2E 02 19 03 9E 5B 5B 5A 1A FF
  367.             B1 DD AE B4 00 7B 03 93 06 B0 37 03 30 B0 19 0D DE A6 5B 77 DD B1
  368.             B7 00 7B 03 60 03 1A 49
  369.            )
  370.       2. 3. MACRO-CALL-ERROR 1. GET-SETF-METHOD + THE LET*
  371.   )  )
  372. #Y(#:TOP-LEVEL-FORM-22
  373.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) SETF
  374.    REMOVE-OLD-DEFINITIONS MACRO
  375.    #Y(SETF
  376.       #386Y(00 00 00 00 01 00 01 00 00 08 3C 01 94 02 AA 71 4A AA 23 00 81 1B
  377.             AA 8D 97 81 5B AB 62 92 01 11 DE 93 02 9E 5B 77 7A 03 83 00 9C 5B
  378.             5B F7 91 01 6F F2 62 F3 AD 31 4C 5C 14 60 03 19 07 AA 94 03 AD 7A
  379.             01 32 02 23 5C 19 08 DE 9E 5B 5B 77 DC A0 5B 77 AF 7A 03 60 03 19
  380.             08 DF DE 9F 5B 77 E0 AF 7A 02 7A 03 60 02 19 08 E2 93 06 B5 7A 02
  381.             9D 79 71 4C A1 1A 80 97 15 16 01 1C 80 5A 1A 80 84 14 8D 09 FF B9
  382.             93 02 24 04 07 AC 71 4A 23 05 FF B9 93 02 24 07 07 AC 71 4A 23 00
  383.             FF BD AC B1 2F 09 41 05 AE AE 62 92 02 0F 93 02 93 02 7A 02 83 00
  384.             82 02 82 01 91 02 71 AF 71 4A 23 01 FF AA 9F 1F 80 41 93 04 24 0B
  385.             3C AF 94 05 91 01 28 9C 58 1B FF A4 16 02 1C 2D E5 94 05 72 00 17
  386.             E2 AC 71 4C E6 AD B8 7A 03 E3 9F 79 60 04 19 11 94 01 82 01 69 01
  387.             92 01 58 92 00 55 93 00 93 02 7A 01 89 0C 6B 16 02 E2 AB 71 4C E7
  388.             B2 B7 B3 60 04 14 60 03 19 10 E8 AC 9D 1A FF 20 AB B0 2F 09 41 05
  389.             E2 E9 B0 B0 72 01 17 B1 93 05 AF 37 03 70 B0 60 03 19 0C 93 01 9D
  390.             5B 77 9C 1F 1B 93 01 8E 09 16 93 01 B0 C4 5E 14 8A 02 0D 93 01 DB
  391.             37 01 71 86 91 00 FF 2D 16 01 AB AC B1 7F 5D 02 22 5A AB 8D 09 FF
  392.             B1 A1 1F 06 93 06 8D 09 FF AE EA EB EC ED 6D 03 16 93 05 32 01 1F
  393.             EA EF F0 F1 6D 03 16 DE B1 32 02 1F
  394.            )
  395.       2. 1. GLOBAL-IN-FENV-P SETF-EXPANDER THE 3. SETF VALUES-LIST
  396.       MULTIPLE-VALUE-LIST GET-SETF-METHOD-MULTIPLE-VALUE LET* VALUES
  397.       SIMPLE-ASSIGNMENT-P #.#'SECOND MULTIPLE-VALUE-SETQ MULTIPLE-VALUE-BIND
  398.       SETQ #.#'LIST PROGRAM-ERROR "Illegal SETF place: ~S"
  399.       "Das ist keine erlaubte 'SETF-Place' : ~S"
  400.       "Ceci n'est pas une place modifiable valide : ~S" LANGUAGE
  401.       "~S called with an odd number of arguments: ~S"
  402.       "~S mit einer ungeraden Zahl von Argumenten aufgerufen: ~S"
  403.       "~S fut appelΘ avec un nombre impair d'arguments : ~S" LET PROGN
  404.   )  )
  405. #Y(#:TOP-LEVEL-FORM-23
  406.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  407.    SHIFTF REMOVE-OLD-DEFINITIONS MACRO
  408.    #Y(SHIFTF
  409.       #116Y(00 00 00 00 01 00 01 00 00 08 3C 01 94 02 AA 71 4A D8 8F 01 2F 0A
  410.             37 01 71 92 AB 01 02 AD 1A 38 D9 DA DB DC 6D 03 05 AF 32 01 1F 93
  411.             03 B2 2F 06 41 05 AE AE 92 01 0F 93 01 93 01 7A 02 83 09 82 01 82
  412.             00 91 01 71 16 02 AF AB 7A 02 83 07 AB 83 06 86 02 05 16 05 82 03
  413.             9E 5B 20 4F AA 93 04 7A 02 83 02 DF AD 71 4C AD 71 4C B1 7A 01 32
  414.             02 23 61 02 19 09
  415.            )
  416.       2. PROGRAM-ERROR "SHIFTF called with too few arguments: ~S"
  417.       "SHIFTF mit zu wenig Argumenten aufgerufen: ~S"
  418.       "SHIFTF fut appelΘ avec trop peu d'arguments : ~S" LANGUAGE
  419.       GET-SETF-METHOD LET*
  420.   )  )
  421. #Y(#:TOP-LEVEL-FORM-24
  422.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  423.         19 01
  424.        )
  425.    AREF SETF-EXPANDER -1.
  426.    #Y(SETF-AREF
  427.       #29Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 9E 5B 78 D8 AC AC B0 7A 01 32
  428.            02 23 61 02 19 05
  429.           )
  430.       STORE
  431.      )
  432.    SETF %SET-DOCUMENTATION
  433.   )
  434. #Y(#:TOP-LEVEL-FORM-25
  435.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) %SETNTH
  436.    REMOVE-OLD-DEFINITIONS
  437.    #Y(%SETNTH
  438.       #36Y(00 00 00 00 03 00 00 00 00 04 AD AD 70 A0 92 00 07 AA AD 30 AC 9D 19
  439.            05 D8 D9 DA DB 6D 03 04 B0 B0 32 02 1F
  440.           )
  441.       ERROR "(SETF (NTH ...) ...) : index ~S is too large for ~S"
  442.       "(SETF (NTH ...) ...) : Index ~S ist zu gro▀ fⁿr ~S."
  443.       "(SETF (NTH ...) ...) : L'index ~S est trop grand pour ~S." LANGUAGE
  444.   )  )
  445. #Y(#:TOP-LEVEL-FORM-26
  446.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  447.        )
  448.    NTH SETF-EXPANDER %SETNTH SETF %SET-DOCUMENTATION
  449.   )
  450. #Y(#:TOP-LEVEL-FORM-27
  451.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  452.        )
  453.    ELT SETF-EXPANDER %SETELT SETF %SET-DOCUMENTATION
  454.   )
  455. #Y(#:TOP-LEVEL-FORM-28
  456.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  457.        )
  458.    REST SETF-EXPANDER %RPLACD SETF %SET-DOCUMENTATION
  459.   )
  460. #Y(#:TOP-LEVEL-FORM-29
  461.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  462.        )
  463.    FIRST SETF-EXPANDER %RPLACA SETF %SET-DOCUMENTATION
  464.   )
  465. #Y(#:TOP-LEVEL-FORM-30
  466.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  467.         19 01
  468.        )
  469.    SECOND SETF-EXPANDER -1.
  470.    #Y(SETF-SECOND
  471.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  472.           )
  473.       %RPLACA CDR
  474.      )
  475.    SETF %SET-DOCUMENTATION
  476.   )
  477. #Y(#:TOP-LEVEL-FORM-31
  478.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  479.         19 01
  480.        )
  481.    THIRD SETF-EXPANDER -1.
  482.    #Y(SETF-THIRD
  483.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  484.           )
  485.       %RPLACA CDDR
  486.      )
  487.    SETF %SET-DOCUMENTATION
  488.   )
  489. #Y(#:TOP-LEVEL-FORM-32
  490.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  491.         19 01
  492.        )
  493.    FOURTH SETF-EXPANDER -1.
  494.    #Y(SETF-FOURTH
  495.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  496.           )
  497.       %RPLACA CDDDR
  498.      )
  499.    SETF %SET-DOCUMENTATION
  500.   )
  501. #Y(#:TOP-LEVEL-FORM-33
  502.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  503.         19 01
  504.        )
  505.    FIFTH SETF-EXPANDER -1.
  506.    #Y(SETF-FIFTH
  507.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  508.           )
  509.       %RPLACA CDDDDR
  510.      )
  511.    SETF %SET-DOCUMENTATION
  512.   )
  513. #Y(#:TOP-LEVEL-FORM-34
  514.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  515.         19 01
  516.        )
  517.    SIXTH SETF-EXPANDER -1.
  518.    #Y(SETF-SIXTH
  519.       #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 DA AD 7A 02 7A 02 AE 60
  520.            03 19 04
  521.           )
  522.       %RPLACA CDR CDDDDR
  523.      )
  524.    SETF %SET-DOCUMENTATION
  525.   )
  526. #Y(#:TOP-LEVEL-FORM-35
  527.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  528.         19 01
  529.        )
  530.    SEVENTH SETF-EXPANDER -1.
  531.    #Y(SETF-SEVENTH
  532.       #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 DA AD 7A 02 7A 02 AE 60
  533.            03 19 04
  534.           )
  535.       %RPLACA CDDR CDDDDR
  536.      )
  537.    SETF %SET-DOCUMENTATION
  538.   )
  539. #Y(#:TOP-LEVEL-FORM-36
  540.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  541.         19 01
  542.        )
  543.    EIGHTH SETF-EXPANDER -1.
  544.    #Y(SETF-EIGHTH
  545.       #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 DA AD 7A 02 7A 02 AE 60
  546.            03 19 04
  547.           )
  548.       %RPLACA CDDDR CDDDDR
  549.      )
  550.    SETF %SET-DOCUMENTATION
  551.   )
  552. #Y(#:TOP-LEVEL-FORM-37
  553.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  554.         19 01
  555.        )
  556.    NINTH SETF-EXPANDER -1.
  557.    #Y(SETF-NINTH
  558.       #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 D9 AD 7A 02 7A 02 AE 60
  559.            03 19 04
  560.           )
  561.       %RPLACA CDDDDR
  562.      )
  563.    SETF %SET-DOCUMENTATION
  564.   )
  565. #Y(#:TOP-LEVEL-FORM-38
  566.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  567.         19 01
  568.        )
  569.    TENTH SETF-EXPANDER -1.
  570.    #Y(SETF-TENTH
  571.       #29Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 DA DA AE 7A 02 7A 02 7A
  572.            02 AE 60 03 19 04
  573.           )
  574.       %RPLACA CDR CDDDDR
  575.      )
  576.    SETF %SET-DOCUMENTATION
  577.   )
  578. #Y(#:TOP-LEVEL-FORM-39
  579.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  580.        )
  581.    CAR SETF-EXPANDER %RPLACA SETF %SET-DOCUMENTATION
  582.   )
  583. #Y(#:TOP-LEVEL-FORM-40
  584.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  585.        )
  586.    CDR SETF-EXPANDER %RPLACD SETF %SET-DOCUMENTATION
  587.   )
  588. #Y(#:TOP-LEVEL-FORM-41
  589.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  590.         19 01
  591.        )
  592.    CAAR SETF-EXPANDER -1.
  593.    #Y(SETF-CAAR
  594.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  595.           )
  596.       %RPLACA CAR
  597.      )
  598.    SETF %SET-DOCUMENTATION
  599.   )
  600. #Y(#:TOP-LEVEL-FORM-42
  601.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  602.         19 01
  603.        )
  604.    CADR SETF-EXPANDER -1.
  605.    #Y(SETF-CADR
  606.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  607.           )
  608.       %RPLACA CDR
  609.      )
  610.    SETF %SET-DOCUMENTATION
  611.   )
  612. #Y(#:TOP-LEVEL-FORM-43
  613.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  614.         19 01
  615.        )
  616.    CDAR SETF-EXPANDER -1.
  617.    #Y(SETF-CDAR
  618.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  619.           )
  620.       %RPLACD CAR
  621.      )
  622.    SETF %SET-DOCUMENTATION
  623.   )
  624. #Y(#:TOP-LEVEL-FORM-44
  625.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  626.         19 01
  627.        )
  628.    CDDR SETF-EXPANDER -1.
  629.    #Y(SETF-CDDR
  630.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  631.           )
  632.       %RPLACD CDR
  633.      )
  634.    SETF %SET-DOCUMENTATION
  635.   )
  636. #Y(#:TOP-LEVEL-FORM-45
  637.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  638.         19 01
  639.        )
  640.    CAAAR SETF-EXPANDER -1.
  641.    #Y(SETF-CAAAR
  642.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  643.           )
  644.       %RPLACA CAAR
  645.      )
  646.    SETF %SET-DOCUMENTATION
  647.   )
  648. #Y(#:TOP-LEVEL-FORM-46
  649.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  650.         19 01
  651.        )
  652.    CAADR SETF-EXPANDER -1.
  653.    #Y(SETF-CAADR
  654.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  655.           )
  656.       %RPLACA CADR
  657.      )
  658.    SETF %SET-DOCUMENTATION
  659.   )
  660. #Y(#:TOP-LEVEL-FORM-47
  661.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  662.         19 01
  663.        )
  664.    CADAR SETF-EXPANDER -1.
  665.    #Y(SETF-CADAR
  666.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  667.           )
  668.       %RPLACA CDAR
  669.      )
  670.    SETF %SET-DOCUMENTATION
  671.   )
  672. #Y(#:TOP-LEVEL-FORM-48
  673.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  674.         19 01
  675.        )
  676.    CADDR SETF-EXPANDER -1.
  677.    #Y(SETF-CADDR
  678.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  679.           )
  680.       %RPLACA CDDR
  681.      )
  682.    SETF %SET-DOCUMENTATION
  683.   )
  684. #Y(#:TOP-LEVEL-FORM-49
  685.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  686.         19 01
  687.        )
  688.    CDAAR SETF-EXPANDER -1.
  689.    #Y(SETF-CDAAR
  690.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  691.           )
  692.       %RPLACD CAAR
  693.      )
  694.    SETF %SET-DOCUMENTATION
  695.   )
  696. #Y(#:TOP-LEVEL-FORM-50
  697.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  698.         19 01
  699.        )
  700.    CDADR SETF-EXPANDER -1.
  701.    #Y(SETF-CDADR
  702.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  703.           )
  704.       %RPLACD CADR
  705.      )
  706.    SETF %SET-DOCUMENTATION
  707.   )
  708. #Y(#:TOP-LEVEL-FORM-51
  709.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  710.         19 01
  711.        )
  712.    CDDAR SETF-EXPANDER -1.
  713.    #Y(SETF-CDDAR
  714.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  715.           )
  716.       %RPLACD CDAR
  717.      )
  718.    SETF %SET-DOCUMENTATION
  719.   )
  720. #Y(#:TOP-LEVEL-FORM-52
  721.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  722.         19 01
  723.        )
  724.    CDDDR SETF-EXPANDER -1.
  725.    #Y(SETF-CDDDR
  726.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  727.           )
  728.       %RPLACD CDDR
  729.      )
  730.    SETF %SET-DOCUMENTATION
  731.   )
  732. #Y(#:TOP-LEVEL-FORM-53
  733.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  734.         19 01
  735.        )
  736.    CAAAAR SETF-EXPANDER -1.
  737.    #Y(SETF-CAAAAR
  738.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  739.           )
  740.       %RPLACA CAAAR
  741.      )
  742.    SETF %SET-DOCUMENTATION
  743.   )
  744. #Y(#:TOP-LEVEL-FORM-54
  745.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  746.         19 01
  747.        )
  748.    CAAADR SETF-EXPANDER -1.
  749.    #Y(SETF-CAAADR
  750.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  751.           )
  752.       %RPLACA CAADR
  753.      )
  754.    SETF %SET-DOCUMENTATION
  755.   )
  756. #Y(#:TOP-LEVEL-FORM-55
  757.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  758.         19 01
  759.        )
  760.    CAADAR SETF-EXPANDER -1.
  761.    #Y(SETF-CAADAR
  762.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  763.           )
  764.       %RPLACA CADAR
  765.      )
  766.    SETF %SET-DOCUMENTATION
  767.   )
  768. #Y(#:TOP-LEVEL-FORM-56
  769.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  770.         19 01
  771.        )
  772.    CAADDR SETF-EXPANDER -1.
  773.    #Y(SETF-CAADDR
  774.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  775.           )
  776.       %RPLACA CADDR
  777.      )
  778.    SETF %SET-DOCUMENTATION
  779.   )
  780. #Y(#:TOP-LEVEL-FORM-57
  781.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  782.         19 01
  783.        )
  784.    CADAAR SETF-EXPANDER -1.
  785.    #Y(SETF-CADAAR
  786.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  787.           )
  788.       %RPLACA CDAAR
  789.      )
  790.    SETF %SET-DOCUMENTATION
  791.   )
  792. #Y(#:TOP-LEVEL-FORM-58
  793.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  794.         19 01
  795.        )
  796.    CADADR SETF-EXPANDER -1.
  797.    #Y(SETF-CADADR
  798.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  799.           )
  800.       %RPLACA CDADR
  801.      )
  802.    SETF %SET-DOCUMENTATION
  803.   )
  804. #Y(#:TOP-LEVEL-FORM-59
  805.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  806.         19 01
  807.        )
  808.    CADDAR SETF-EXPANDER -1.
  809.    #Y(SETF-CADDAR
  810.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  811.           )
  812.       %RPLACA CDDAR
  813.      )
  814.    SETF %SET-DOCUMENTATION
  815.   )
  816. #Y(#:TOP-LEVEL-FORM-60
  817.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  818.         19 01
  819.        )
  820.    CADDDR SETF-EXPANDER -1.
  821.    #Y(SETF-CADDDR
  822.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  823.           )
  824.       %RPLACA CDDDR
  825.      )
  826.    SETF %SET-DOCUMENTATION
  827.   )
  828. #Y(#:TOP-LEVEL-FORM-61
  829.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  830.         19 01
  831.        )
  832.    CDAAAR SETF-EXPANDER -1.
  833.    #Y(SETF-CDAAAR
  834.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  835.           )
  836.       %RPLACD CAAAR
  837.      )
  838.    SETF %SET-DOCUMENTATION
  839.   )
  840. #Y(#:TOP-LEVEL-FORM-62
  841.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  842.         19 01
  843.        )
  844.    CDAADR SETF-EXPANDER -1.
  845.    #Y(SETF-CDAADR
  846.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  847.           )
  848.       %RPLACD CAADR
  849.      )
  850.    SETF %SET-DOCUMENTATION
  851.   )
  852. #Y(#:TOP-LEVEL-FORM-63
  853.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  854.         19 01
  855.        )
  856.    CDADAR SETF-EXPANDER -1.
  857.    #Y(SETF-CDADAR
  858.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  859.           )
  860.       %RPLACD CADAR
  861.      )
  862.    SETF %SET-DOCUMENTATION
  863.   )
  864. #Y(#:TOP-LEVEL-FORM-64
  865.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  866.         19 01
  867.        )
  868.    CDADDR SETF-EXPANDER -1.
  869.    #Y(SETF-CDADDR
  870.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  871.           )
  872.       %RPLACD CADDR
  873.      )
  874.    SETF %SET-DOCUMENTATION
  875.   )
  876. #Y(#:TOP-LEVEL-FORM-65
  877.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  878.         19 01
  879.        )
  880.    CDDAAR SETF-EXPANDER -1.
  881.    #Y(SETF-CDDAAR
  882.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  883.           )
  884.       %RPLACD CDAAR
  885.      )
  886.    SETF %SET-DOCUMENTATION
  887.   )
  888. #Y(#:TOP-LEVEL-FORM-66
  889.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  890.         19 01
  891.        )
  892.    CDDADR SETF-EXPANDER -1.
  893.    #Y(SETF-CDDADR
  894.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  895.           )
  896.       %RPLACD CDADR
  897.      )
  898.    SETF %SET-DOCUMENTATION
  899.   )
  900. #Y(#:TOP-LEVEL-FORM-67
  901.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  902.         19 01
  903.        )
  904.    CDDDAR SETF-EXPANDER -1.
  905.    #Y(SETF-CDDDAR
  906.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  907.           )
  908.       %RPLACD CDDAR
  909.      )
  910.    SETF %SET-DOCUMENTATION
  911.   )
  912. #Y(#:TOP-LEVEL-FORM-68
  913.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  914.         19 01
  915.        )
  916.    CDDDDR SETF-EXPANDER -1.
  917.    #Y(SETF-CDDDDR
  918.       #23Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC 7A 02 AE 60 03 19 04
  919.           )
  920.       %RPLACD CDDDR
  921.      )
  922.    SETF %SET-DOCUMENTATION
  923.   )
  924. #Y(#:TOP-LEVEL-FORM-69
  925.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  926.        )
  927.    SVREF SETF-EXPANDER SVSTORE SETF %SET-DOCUMENTATION
  928.   )
  929. #Y(#:TOP-LEVEL-FORM-70
  930.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  931.        )
  932.    ROW-MAJOR-AREF SETF-EXPANDER ROW-MAJOR-STORE SETF %SET-DOCUMENTATION
  933.   )
  934. #Y(#:TOP-LEVEL-FORM-71
  935.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  936.         19 01
  937.        )
  938.    GET SETF-EXPANDER -1.
  939.    #Y(SETF-GET
  940.       #41Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 9E 5B 5B 77 9F 5B 5B 5B 77 D8
  941.            AD AD B1 7A 04 91 01 03 15 19 06 D9 AC AC 60 03 19 07
  942.           )
  943.       %PUT PROGN
  944.      )
  945.    SETF %SET-DOCUMENTATION
  946.   )
  947. #Y(#:TOP-LEVEL-FORM-72
  948.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) %PUTF
  949.    REMOVE-OLD-DEFINITIONS
  950.    #Y(%PUTF
  951.       #54Y(00 00 00 00 03 00 00 00 00 04 AD 1A 1F D8 D9 DA DB 6D 03 04 32 00 1F
  952.            94 00 AD 30 AC 00 19 05 9B 5B 1F 6A 93 00 9F 21 6F 9B 5B 5B F6 9B 20
  953.            70 AD AD A1 61 02 19 05
  954.           )
  955.       ERROR "(SETF (GETF ...) ...) : property list with an odd length"
  956.       "(SETF (GETF ...) ...) : Property-Liste ungerader LΣnge aufgetaucht."
  957.       "(SETF (GETF ...) ...) : Occurence d'une liste de propriΘtΘs de longueur impaire."
  958.       LANGUAGE
  959.   )  )
  960. #Y(#:TOP-LEVEL-FORM-73
  961.    #34Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 97 00 79 31
  962.         8A DB DE 62 2C 03 07 C6 19 01
  963.        )
  964.    #1=#:SETF-GETF REMOVE-OLD-DEFINITIONS
  965.    #Y(#1#
  966.       #142Y(00 00 00 00 02 00 00 00 00 03 D8 AD 71 4A D9 90 02 31 80 5B 9D 5B
  967.             77 9E 5B 5B 77 9F 5B 5B 5B 77 AC AF 2F 08 41 05 37 01 71 92 37 01
  968.             71 92 91 07 80 4D 00 14 B1 AC 9D 79 72 02 23 B1 B5 91 0B 80 47 00
  969.             79 72 02 23 AE 7A 01 E1 93 09 E2 B3 B2 B4 7A 04 7A 02 7A 01 AF E3
  970.             93 0C B6 7A 03 B3 7A 02 32 02 23 7B 02 DF B2 B1 A2 7B 03 3F 05 19
  971.             0E DA DB DC DD 6D 03 06 DF AF 71 4A 71 9A 32 02 1F 37 01 71 92 60
  972.             01 1A FF AB 14 60 01 1A FF B4
  973.            )
  974.       3. 4. PROGRAM-ERROR
  975.       "The SETF expander for ~S may not be called with ~S arguments."
  976.       "Der SETF-Expander fⁿr ~S kann nicht mit ~S Argumenten aufgerufen werden."
  977.       "L'½expandeur╗ SETF pour ~S ne peut pas Ωtre appelΘ avec ~S arguments."
  978.       LANGUAGE GETF GET-SETF-METHOD LET %PUTF WHEN
  979.      )
  980.    GETF SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  981.   )
  982. #Y(#:TOP-LEVEL-FORM-74
  983.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  984.         19 01
  985.        )
  986.    GETHASH SETF-EXPANDER -1.
  987.    #Y(SETF-GETHASH
  988.       #41Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 9E 5B 5B 77 9F 5B 5B 5B 77 D8
  989.            AD AD B1 7A 04 91 01 03 15 19 06 D9 AC AC 60 03 19 07
  990.           )
  991.       PUTHASH PROGN
  992.      )
  993.    SETF %SET-DOCUMENTATION
  994.   )
  995. #Y(#:TOP-LEVEL-FORM-75
  996.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 02 C3 19 01
  997.        )
  998.    DOCUMENTATION SETF-EXPANDER %SET-DOCUMENTATION SETF
  999.   )
  1000. #Y(#:TOP-LEVEL-FORM-76
  1001.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  1002.        )
  1003.    FILL-POINTER SETF-EXPANDER SET-FILL-POINTER SETF %SET-DOCUMENTATION
  1004.   )
  1005. #Y(#:TOP-LEVEL-FORM-77
  1006.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  1007.        )
  1008.    READTABLE-CASE SETF-EXPANDER SET-READTABLE-CASE SETF %SET-DOCUMENTATION
  1009.   )
  1010. #Y(#:TOP-LEVEL-FORM-78
  1011.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  1012.        )
  1013.    SYMBOL-VALUE SETF-EXPANDER SET SETF %SET-DOCUMENTATION
  1014.   )
  1015. #Y(#:TOP-LEVEL-FORM-79
  1016.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  1017.        )
  1018.    SYMBOL-FUNCTION SETF-EXPANDER %PUTD SETF %SET-DOCUMENTATION
  1019.   )
  1020. #Y(#:TOP-LEVEL-FORM-80
  1021.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  1022.        )
  1023.    SYMBOL-PLIST SETF-EXPANDER %PUTPLIST SETF %SET-DOCUMENTATION
  1024.   )
  1025. #Y(#:TOP-LEVEL-FORM-81
  1026.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  1027.    SET-FDEFINITION REMOVE-OLD-DEFINITIONS
  1028.    #Y(SET-FDEFINITION
  1029.       #18Y(00 00 00 00 02 00 00 00 00 03 AC 6E 00 AC 31 84 19 03)
  1030.       GET-FUNNAME-SYMBOL
  1031.   )  )
  1032. #Y(#:TOP-LEVEL-FORM-82
  1033.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  1034.        )
  1035.    FDEFINITION SETF-EXPANDER SET-FDEFINITION SETF %SET-DOCUMENTATION
  1036.   )
  1037. #Y(#:TOP-LEVEL-FORM-83
  1038.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  1039.         19 01
  1040.        )
  1041.    MACRO-FUNCTION SETF-EXPANDER -1.
  1042.    #Y(SETF-MACRO-FUNCTION
  1043.       #36Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 DA AD 7A 02 DB DC B1 7A
  1044.            03 7A 03 DD AD C9 7B 02 AF 60 04 19 04
  1045.           )
  1046.       PROGN SETF SYMBOL-FUNCTION CONS 'MACRO REMPROP ('MACRO)
  1047.      )
  1048.    SETF %SET-DOCUMENTATION
  1049.   )
  1050. #Y(#:TOP-LEVEL-FORM-84
  1051.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  1052.        )
  1053.    CHAR SETF-EXPANDER STORE-CHAR SETF %SET-DOCUMENTATION
  1054.   )
  1055. #Y(#:TOP-LEVEL-FORM-85
  1056.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  1057.        )
  1058.    SCHAR SETF-EXPANDER STORE-SCHAR SETF %SET-DOCUMENTATION
  1059.   )
  1060. #Y(#:TOP-LEVEL-FORM-86
  1061.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  1062.        )
  1063.    BIT SETF-EXPANDER STORE SETF %SET-DOCUMENTATION
  1064.   )
  1065. #Y(#:TOP-LEVEL-FORM-87
  1066.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  1067.        )
  1068.    SBIT SETF-EXPANDER STORE SETF %SET-DOCUMENTATION
  1069.   )
  1070. #Y(#:TOP-LEVEL-FORM-88
  1071.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  1072.         19 01
  1073.        )
  1074.    SUBSEQ SETF-EXPANDER -1.
  1075.    #Y(SETF-SUBSEQ
  1076.       #37Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 9E 5B 5B 77 9F 5B 5B 5B 77 D8
  1077.            D9 AE B1 DA B0 DB B1 7A 07 B0 60 03 19 06
  1078.           )
  1079.       PROGN REPLACE :START1 :END1
  1080.      )
  1081.    SETF %SET-DOCUMENTATION
  1082.   )
  1083. #Y(#:TOP-LEVEL-FORM-89
  1084.    #34Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 97 00 79 31
  1085.         8A DB DE 62 2C 03 07 C6 19 01
  1086.        )
  1087.    #1=#:SETF-CHAR-BIT REMOVE-OLD-DEFINITIONS
  1088.    #Y(#1#
  1089.       #99Y(00 00 00 00 02 00 00 00 00 03 AC 71 4A D8 8F 01 2E 80 40 9D 5B 77 9E
  1090.            5B 5B 77 AB AE 2F 07 41 05 37 01 71 92 37 01 71 92 B0 AC 7A 01 72 02
  1091.            23 B0 B3 7A 01 72 02 23 AC 7A 01 E0 93 08 E1 B2 B2 B2 7A 04 7A 02 7A
  1092.            01 B2 B0 7A 04 DE B1 B1 7A 03 3F 05 19 0C D9 DA DB DC 6D 03 05 DE AF
  1093.            71 4A 71 9A 32 02 1F
  1094.           )
  1095.       3. PROGRAM-ERROR
  1096.       "The SETF expander for ~S may not be called with ~S arguments."
  1097.       "Der SETF-Expander fⁿr ~S kann nicht mit ~S Argumenten aufgerufen werden."
  1098.       "L'½expandeur╗ SETF pour ~S ne peut pas Ωtre appelΘ avec ~S arguments."
  1099.       LANGUAGE CHAR-BIT GET-SETF-METHOD LET SET-CHAR-BIT
  1100.      )
  1101.    CHAR-BIT SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  1102.   )
  1103. #Y(#:TOP-LEVEL-FORM-90
  1104.    #34Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 97 00 79 31
  1105.         8A DB DE 62 2C 03 07 C6 19 01
  1106.        )
  1107.    #1=#:SETF-LDB REMOVE-OLD-DEFINITIONS
  1108.    #Y(#1#
  1109.       #90Y(00 00 00 00 02 00 00 00 00 03 AC 71 4A D8 8F 01 2E 38 9D 5B 77 9E 5B
  1110.            5B 77 AA AE 2F 07 41 05 37 01 71 92 37 01 71 92 AB A2 79 B3 A2 79 AC
  1111.            7A 01 E0 93 08 E1 B0 B2 B4 7A 04 7A 02 7A 01 B2 B0 7A 04 DE B0 B2 7A
  1112.            03 3F 05 19 0C D9 DA DB DC 6D 03 05 DE AF 71 4A 71 9A 32 02 1F
  1113.           )
  1114.       3. PROGRAM-ERROR
  1115.       "The SETF expander for ~S may not be called with ~S arguments."
  1116.       "Der SETF-Expander fⁿr ~S kann nicht mit ~S Argumenten aufgerufen werden."
  1117.       "L'½expandeur╗ SETF pour ~S ne peut pas Ωtre appelΘ avec ~S arguments."
  1118.       LANGUAGE LDB GET-SETF-METHOD LET DPB
  1119.      )
  1120.    LDB SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  1121.   )
  1122. #Y(#:TOP-LEVEL-FORM-91
  1123.    #34Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 97 00 79 31
  1124.         8A DB DE 62 2C 03 07 C6 19 01
  1125.        )
  1126.    #1=#:SETF-MASK-FIELD REMOVE-OLD-DEFINITIONS
  1127.    #Y(#1#
  1128.       #90Y(00 00 00 00 02 00 00 00 00 03 AC 71 4A D8 8F 01 2E 38 9D 5B 77 9E 5B
  1129.            5B 77 AA AE 2F 07 41 05 37 01 71 92 37 01 71 92 AB A2 79 B3 A2 79 AC
  1130.            7A 01 E0 93 08 E1 B0 B2 B4 7A 04 7A 02 7A 01 B2 B0 7A 04 DE B0 B2 7A
  1131.            03 3F 05 19 0C D9 DA DB DC 6D 03 05 DE AF 71 4A 71 9A 32 02 1F
  1132.           )
  1133.       3. PROGRAM-ERROR
  1134.       "The SETF expander for ~S may not be called with ~S arguments."
  1135.       "Der SETF-Expander fⁿr ~S kann nicht mit ~S Argumenten aufgerufen werden."
  1136.       "L'½expandeur╗ SETF pour ~S ne peut pas Ωtre appelΘ avec ~S arguments."
  1137.       LANGUAGE MASK-FIELD GET-SETF-METHOD LET DEPOSIT-FIELD
  1138.      )
  1139.    MASK-FIELD SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  1140.   )
  1141. #Y(#:TOP-LEVEL-FORM-92
  1142.    #34Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 97 00 79 31
  1143.         8A DB DE 62 2C 03 07 C6 19 01
  1144.        )
  1145.    #1=#:SETF-THE REMOVE-OLD-DEFINITIONS
  1146.    #Y(#1#
  1147.       #72Y(00 00 00 00 02 00 00 00 00 03 AC 71 4A D8 8F 01 2E 26 9D 5B 77 9E 5B
  1148.            5B 77 AA AE 2F 07 41 05 AE AE AE DE B4 93 07 7A 03 93 06 B0 37 03 70
  1149.            B0 DE B5 B0 7A 03 3F 05 19 0A D9 DA DB DC 6D 03 05 DE AF 71 4A 71 9A
  1150.            32 02 1F
  1151.           )
  1152.       3. PROGRAM-ERROR
  1153.       "The SETF expander for ~S may not be called with ~S arguments."
  1154.       "Der SETF-Expander fⁿr ~S kann nicht mit ~S Argumenten aufgerufen werden."
  1155.       "L'½expandeur╗ SETF pour ~S ne peut pas Ωtre appelΘ avec ~S arguments."
  1156.       LANGUAGE THE GET-SETF-METHOD
  1157.      )
  1158.    THE SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  1159.   )
  1160. #Y(#:TOP-LEVEL-FORM-93
  1161.    #34Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 97 00 79 31
  1162.         8A DB DE 62 2C 03 07 C6 19 01
  1163.        )
  1164.    #1=#:SETF-APPLY REMOVE-OLD-DEFINITIONS
  1165.    #Y(#1#
  1166.       #153Y(00 00 00 00 02 00 00 00 00 03 AC 71 4A D8 8F 01 2F 80 61 9D 5B 77
  1167.             9E 5B 78 AB 8E 0E 80 66 AB 70 98 24 00 80 5F 93 01 24 07 80 59 9C
  1168.             5B 77 8E 09 80 52 9C 5B 5A F7 AB 9C 79 AE 2F 0B 41 05 AF 37 01 30
  1169.             A1 77 AE 37 01 30 A1 5A 22 80 41 00 2A 01 AF 37 01 30 A1 5A 0B 00
  1170.             00 9B 2A 01 AA 2B 0F 01 0B 00 00 AA 6C 10 01 B1 B1 B1 B1 9F 73 B1
  1171.             A0 73 3F 05 19 0D D9 DA DB DC 6D 03 05 DE AF 71 4A 71 9A 32 02 1F
  1172.             D9 E0 E1 E2 6D 03 05 32 00 1F D9 E4 E5 E6 6D 03 05 B2 32 01 1F
  1173.            )
  1174.       2. PROGRAM-ERROR
  1175.       "The SETF expander for ~S may not be called with ~S arguments."
  1176.       "Der SETF-Expander fⁿr ~S kann nicht mit ~S Argumenten aufgerufen werden."
  1177.       "L'½expandeur╗ SETF pour ~S ne peut pas Ωtre appelΘ avec ~S arguments."
  1178.       LANGUAGE APPLY FUNCTION
  1179.       "SETF APPLY is only defined for functions of the form #'symbol."
  1180.       "SETF von APPLY ist nur fⁿr Funktionen der Form #'symbol als Argument definiert."
  1181.       "Un SETF de APPLY n'est dΘfini que pour les fonctions de la forme #'symbole."
  1182.       GET-SETF-METHOD "APPLY on ~S is not a SETF place."
  1183.       "APPLY von ~S kann nicht als 'SETF-Place' aufgefa▀t werden."
  1184.       "APPLY de ~S ne peux pas Ωtre considΘrΘ comme une place modifiable."
  1185.       #Y(SPLICE
  1186.          #44Y(00 00 00 00 01 00 00 00 00 02 AB 8B 97 13 94 01 6B 78 93 02 68 01
  1187.               01 8D 04 0A 93 02 AB 2F 02 19 03 00 19 02 68 01 01 AB 2F 01 19 03
  1188.              )
  1189.          NIL BACKQUOTE-APPEND BACKQUOTE-CONS
  1190.         )
  1191.       #Y(CALL-SPLICING
  1192.          #64Y(00 00 00 00 01 00 00 00 00 02 93 01 94 02 07 00 01 73 92 00 21 9B
  1193.               1F 05 93 00 23 01 19 DA DB AD 7A 02 9D 1F 0A 93 02 23 04 12 93 02
  1194.               23 05 0D AC 60 01 61 02 19 04 AB 9C 5B 5C 19 04 9D 5B 1A 72
  1195.              )
  1196.          NIL LIST APPLY FUNCTION LIST* CONS
  1197.      )  )
  1198.    APPLY SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  1199.   )
  1200. #Y(#:TOP-LEVEL-FORM-94
  1201.    #34Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 97 00 79 31
  1202.         8A DB DE 62 2C 03 07 C6 19 01
  1203.        )
  1204.    #1=#:SETF-FUNCALL REMOVE-OLD-DEFINITIONS
  1205.    #Y(#1#
  1206.       #98Y(00 00 00 00 02 00 00 00 00 03 AC 71 4A D8 8F 01 2F 2F 9D 5B 77 9E 5B
  1207.            78 AB 8E 0E 3C AB 70 98 24 00 36 93 01 AA CA 59 1C 28 16 01 1C 2B 9C
  1208.            5B 77 8E 09 25 9C 5B 5A F7 1C 1F AB 9C 79 AE 2F 0C 19 05 D9 DA DB DC
  1209.            6D 03 05 DE AF 71 4A 71 9A 32 02 1F AA CB 59 16 01 1B 55 D9 E1 E2 E3
  1210.            6D 03 05 32 00 1F
  1211.           )
  1212.       2. PROGRAM-ERROR
  1213.       "The SETF expander for ~S may not be called with ~S arguments."
  1214.       "Der SETF-Expander fⁿr ~S kann nicht mit ~S Argumenten aufgerufen werden."
  1215.       "L'½expandeur╗ SETF pour ~S ne peut pas Ωtre appelΘ avec ~S arguments."
  1216.       LANGUAGE FUNCALL FUNCTION QUOTE
  1217.       "SETF FUNCALL is only defined for functions of the form #'symbol."
  1218.       "SETF von FUNCALL ist nur fⁿr Funktionen der Form #'symbol definiert."
  1219.       "Un SETF de FUNCALL n'est dΘfini que pour les fonctions de la forme #'symbole."
  1220.       GET-SETF-METHOD
  1221.      )
  1222.    FUNCALL SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  1223.   )
  1224. #Y(#:TOP-LEVEL-FORM-95
  1225.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  1226.         19 01
  1227.        )
  1228.    GET-DISPATCH-MACRO-CHARACTER SETF-EXPANDER -1.
  1229.    #Y(SETF-GET-DISPATCH-MACRO-CHARACTER
  1230.       #45Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 9E 5B 5B 77 9F 5B 5B 5B 1B 0F
  1231.            C3 14 D9 DA AE AE B2 AF 7A 05 B0 60 03 19 06 9F 5B 5B 5B 5A 1A 6B
  1232.           )
  1233.       *READTABLE* PROGN SET-DISPATCH-MACRO-CHARACTER
  1234.      )
  1235.    SETF %SET-DOCUMENTATION
  1236.   )
  1237. #Y(#:TOP-LEVEL-FORM-96
  1238.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  1239.        )
  1240.    LONG-FLOAT-DIGITS SETF-EXPANDER %SET-LONG-FLOAT-DIGITS SETF
  1241.    %SET-DOCUMENTATION
  1242.   )
  1243. #Y(#:TOP-LEVEL-FORM-97
  1244.    #26Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA C6 79 31 8A D8 DC 62 2C 03 05 C3
  1245.         19 01
  1246.        )
  1247.    DEFAULT-DIRECTORY SETF-EXPANDER -1.
  1248.    #Y(SETF-DEFAULT-DIRECTORY
  1249.       #20Y(00 00 00 00 02 00 00 00 00 03 D8 D9 AD 7A 02 AD 60 03 19 03) PROGN
  1250.       CD
  1251.      )
  1252.    SETF %SET-DOCUMENTATION
  1253.   )
  1254. #Y(#:TOP-LEVEL-FORM-98
  1255.    #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01
  1256.        )
  1257.    LOGICAL-PATHNAME-TRANSLATIONS SETF-EXPANDER
  1258.    SET-LOGICAL-PATHNAME-TRANSLATIONS SETF %SET-DOCUMENTATION
  1259.   )
  1260. #Y(#:TOP-LEVEL-FORM-99
  1261.    #34Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 97 00 79 31
  1262.         8A DB DE 62 2C 03 07 C6 19 01
  1263.        )
  1264.    #1=#:SETF-VALUES REMOVE-OLD-DEFINITIONS
  1265.    #Y(#1#
  1266.       #31Y(00 00 00 00 02 00 00 00 00 03 94 02 AA AD 2F 00 41 05 AE AE AE D9 A0
  1267.            79 D9 A0 79 3F 05 19 09
  1268.           )
  1269.       SETF-VALUES-AUX VALUES
  1270.      )
  1271.    VALUES SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  1272.   )
  1273. #Y(#:TOP-LEVEL-FORM-100
  1274.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  1275.    SETF-VALUES-AUX REMOVE-OLD-DEFINITIONS
  1276.    #Y(SETF-VALUES-AUX
  1277.       #79Y(00 00 00 00 02 00 00 00 00 03 01 05 B1 1A 20 93 00 82 01 B2 2F 00 41
  1278.            05 AE B5 7F A6 0A AD B4 7F A6 09 AC B3 7F A6 08 AB 83 07 AA 83 06 16
  1279.            05 9B 20 5D AF 80 4C 05 AE 80 4C 04 AD 80 4C 03 AC 80 4C 02 AB 80 4C
  1280.            01 AF AF AF AF AF 3F 05 19 09
  1281.           )
  1282.       GET-SETF-METHOD
  1283.   )  )
  1284. #Y(#:TOP-LEVEL-FORM-101
  1285.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  1286.    MULTIPLE-VALUE-SETF REMOVE-OLD-DEFINITIONS MACRO
  1287.    #Y(MULTIPLE-VALUE-SETF
  1288.       #62Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2E 25 9D 5B 77
  1289.            9E 5B 5B 77 AB AE 2F 02 41 05 DB DC B0 B0 72 01 17 DD AF B3 B0 93 08
  1290.            7A 01 32 02 23 7B 03 60 03 19 0A AC 2E 01 19 03
  1291.           )
  1292.       3. MACRO-CALL-ERROR SETF-VALUES-AUX LET* #.#'LIST MULTIPLE-VALUE-BIND
  1293.   )  )
  1294.